# TODO: Add comment
# 
# Author: artur
###############################################################################

#model.initBoard(matrix(c(1, 2, 0, 1, 0, 3, 3, 1, 3, 2, 0, 2, 1, 1, 0, 2, 3, 0, 3, 2), 4, 5))

#model.initBoard(matrix(c(2, 2, 3, 2, 1, 2, 1, 3, 1, 0, 3, 1, 3, 0, 3, 0, 0, 2, 0, 1), 4, 5))

#model.initBoard(matrix(list(0, 1, 1, 1, 0, 0), 2, 3))
#model.initBoard(matrix(c(4,3,3,1,2, 2,3,0,3,0, 4,1,2,2,4, 1,4,4,2,1, 4,0,1,2,1, 3,0,3,0,0), 5, 6))
#model.initBoard(matrix(c(3,0,5,4,0,1, 4,1,3,3,0,1, 4,1,5,3,2,4, 5,1,0,5,2,1, 2,1,2,3,4,0, 2,2,3,0,2,5, 3,0,4,4,5,5), 6, 7))

model.initBoard(matrix(c(0, 3, 3, 1, 2, 1, 2, 0, 1, 1, 3, 1, 3, 0, 0, 3, 0, 2, 2, 2), 4, 5))	#inicjalizacja planszy

dominosaGraph<-dominosa.createSearchGraph(model.getBoard())			#stworzenie przestrzeni przeszukiwan
print("zrobilem graf")
dominosaPath<-astar.search(dominosaGraph)							#znalezienie rozwiazania metoda A*
print(dominosaPath)													#wypisanie rozwiązania

